home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / pertab / newtab.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-02  |  10.1 KB  |  308 lines
  1. VERSION 2.00
  2. Begin Form NewTabForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "New form for a tabbed dialog (Change filename before you save !!!)"
  5.    ClientHeight    =   3630
  6.    ClientLeft      =   765
  7.    ClientTop       =   1440
  8.    ClientWidth     =   7935
  9.    DrawWidth       =   2
  10.    Height          =   4035
  11.    KeyPreview      =   -1  'True
  12.    Left            =   705
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   3630
  15.    ScaleWidth      =   7935
  16.    Top             =   1095
  17.    Width           =   8055
  18.    Begin PictureBox Tab_Loop 
  19.       BackColor       =   &H00C0C0C0&
  20.       Height          =   495
  21.       Index           =   4
  22.       Left            =   5670
  23.       ScaleHeight     =   465
  24.       ScaleWidth      =   1275
  25.       TabIndex        =   10
  26.       Top             =   480
  27.       Width           =   1300
  28.       Begin Label Tab_Label 
  29.          Alignment       =   2  'Center
  30.          AutoSize        =   -1  'True
  31.          BackStyle       =   0  'Transparent
  32.          Caption         =   "&5"
  33.          Height          =   195
  34.          Index           =   4
  35.          Left            =   540
  36.          TabIndex        =   9
  37.          Top             =   120
  38.          Width           =   135
  39.       End
  40.    End
  41.    Begin PictureBox Tab_Loop 
  42.       BackColor       =   &H00C0C0C0&
  43.       Height          =   495
  44.       Index           =   3
  45.       Left            =   4320
  46.       ScaleHeight     =   465
  47.       ScaleWidth      =   1275
  48.       TabIndex        =   7
  49.       Top             =   480
  50.       Width           =   1300
  51.       Begin Label Tab_Label 
  52.          Alignment       =   2  'Center
  53.          AutoSize        =   -1  'True
  54.          BackStyle       =   0  'Transparent
  55.          Caption         =   "&4"
  56.          Height          =   195
  57.          Index           =   3
  58.          Left            =   540
  59.          TabIndex        =   6
  60.          Top             =   120
  61.          Width           =   135
  62.       End
  63.    End
  64.    Begin PictureBox Tab_Loop 
  65.       BackColor       =   &H00C0C0C0&
  66.       Height          =   495
  67.       Index           =   1
  68.       Left            =   1620
  69.       ScaleHeight     =   465
  70.       ScaleWidth      =   1275
  71.       TabIndex        =   3
  72.       Top             =   480
  73.       Width           =   1300
  74.       Begin Label Tab_Label 
  75.          Alignment       =   2  'Center
  76.          AutoSize        =   -1  'True
  77.          BackStyle       =   0  'Transparent
  78.          Caption         =   "&2"
  79.          Height          =   195
  80.          Index           =   1
  81.          Left            =   570
  82.          TabIndex        =   2
  83.          Top             =   120
  84.          Width           =   135
  85.       End
  86.    End
  87.    Begin PictureBox Tab_Loop 
  88.       BackColor       =   &H00C0C0C0&
  89.       Height          =   495
  90.       Index           =   2
  91.       Left            =   2970
  92.       ScaleHeight     =   465
  93.       ScaleWidth      =   1275
  94.       TabIndex        =   5
  95.       Top             =   480
  96.       Width           =   1300
  97.       Begin Label Tab_Label 
  98.          Alignment       =   2  'Center
  99.          AutoSize        =   -1  'True
  100.          BackStyle       =   0  'Transparent
  101.          Caption         =   "&3"
  102.          Height          =   195
  103.          Index           =   2
  104.          Left            =   540
  105.          TabIndex        =   4
  106.          Top             =   120
  107.          Width           =   135
  108.       End
  109.    End
  110.    Begin PictureBox Tab_Loop 
  111.       BackColor       =   &H00C0C0C0&
  112.       Height          =   495
  113.       Index           =   0
  114.       Left            =   270
  115.       ScaleHeight     =   465
  116.       ScaleWidth      =   1275
  117.       TabIndex        =   1
  118.       Top             =   480
  119.       Width           =   1300
  120.       Begin Label Tab_Label 
  121.          Alignment       =   2  'Center
  122.          AutoSize        =   -1  'True
  123.          BackStyle       =   0  'Transparent
  124.          Caption         =   "&1"
  125.          Height          =   195
  126.          Index           =   0
  127.          Left            =   540
  128.          TabIndex        =   0
  129.          Top             =   120
  130.          Width           =   135
  131.       End
  132.    End
  133.    Begin SSPanel Tab_sheet 
  134.       BevelInner      =   2  'Raised
  135.       BorderWidth     =   0
  136.       Caption         =   "SSPanel - Index 0"
  137.       FloodShowPct    =   0   'False
  138.       Font3D          =   1  'Raised w/light shading
  139.       FontBold        =   -1  'True
  140.       FontItalic      =   0   'False
  141.       FontName        =   "MS Sans Serif"
  142.       FontSize        =   24
  143.       FontStrikethru  =   0   'False
  144.       FontUnderline   =   0   'False
  145.       ForeColor       =   &H00808080&
  146.       Height          =   2000
  147.       Index           =   0
  148.       Left            =   180
  149.       Outline         =   -1  'True
  150.       TabIndex        =   12
  151.       Top             =   720
  152.       Width           =   7000
  153.    End
  154.    Begin SSPanel Tab_sheet 
  155.       BevelInner      =   2  'Raised
  156.       BorderWidth     =   0
  157.       Caption         =   "SSPanel - Index 1"
  158.       FloodShowPct    =   0   'False
  159.       Font3D          =   1  'Raised w/light shading
  160.       FontBold        =   -1  'True
  161.       FontItalic      =   0   'False
  162.       FontName        =   "MS Sans Serif"
  163.       FontSize        =   24
  164.       FontStrikethru  =   0   'False
  165.       FontUnderline   =   0   'False
  166.       ForeColor       =   &H00808080&
  167.       Height          =   2000
  168.       Index           =   1
  169.       Left            =   270
  170.       Outline         =   -1  'True
  171.       TabIndex        =   11
  172.       Top             =   840
  173.       Width           =   7000
  174.    End
  175.    Begin SSPanel Tab_sheet 
  176.       BevelInner      =   2  'Raised
  177.       BorderWidth     =   0
  178.       Caption         =   "SSPanel - Index 2"
  179.       FloodShowPct    =   0   'False
  180.       Font3D          =   1  'Raised w/light shading
  181.       FontBold        =   -1  'True
  182.       FontItalic      =   0   'False
  183.       FontName        =   "MS Sans Serif"
  184.       FontSize        =   24
  185.       FontStrikethru  =   0   'False
  186.       FontUnderline   =   0   'False
  187.       ForeColor       =   &H00808080&
  188.       Height          =   2000
  189.       Index           =   2
  190.       Left            =   360
  191.       Outline         =   -1  'True
  192.       TabIndex        =   8
  193.       Top             =   960
  194.       Width           =   7000
  195.    End
  196.    Begin SSPanel Tab_sheet 
  197.       BevelInner      =   2  'Raised
  198.       BorderWidth     =   0
  199.       Caption         =   "SSPanel - Index 3"
  200.       FloodShowPct    =   0   'False
  201.       Font3D          =   1  'Raised w/light shading
  202.       FontBold        =   -1  'True
  203.       FontItalic      =   0   'False
  204.       FontName        =   "MS Sans Serif"
  205.       FontSize        =   24
  206.       FontStrikethru  =   0   'False
  207.       FontUnderline   =   0   'False
  208.       ForeColor       =   &H00808080&
  209.       Height          =   2000
  210.       Index           =   3
  211.       Left            =   450
  212.       Outline         =   -1  'True
  213.       TabIndex        =   13
  214.       Top             =   1080
  215.       Width           =   7000
  216.    End
  217.    Begin SSPanel Tab_sheet 
  218.       BevelInner      =   2  'Raised
  219.       BorderWidth     =   0
  220.       Caption         =   "SSPanel - Index 4"
  221.       FloodShowPct    =   0   'False
  222.       Font3D          =   1  'Raised w/light shading
  223.       FontBold        =   -1  'True
  224.       FontItalic      =   0   'False
  225.       FontName        =   "MS Sans Serif"
  226.       FontSize        =   24
  227.       FontStrikethru  =   0   'False
  228.       FontUnderline   =   0   'False
  229.       ForeColor       =   &H00808080&
  230.       Height          =   2000
  231.       Index           =   4
  232.       Left            =   540
  233.       Outline         =   -1  'True
  234.       TabIndex        =   14
  235.       Top             =   1200
  236.       Width           =   7000
  237.    End
  238.    Begin Image Tab_Loop_Picture 
  239.       Height          =   450
  240.       Index           =   1
  241.       Left            =   2430
  242.       Picture         =   NEWTAB.FRX:0000
  243.       Top             =   0
  244.       Visible         =   0   'False
  245.       Width           =   1500
  246.    End
  247.    Begin Image Tab_Loop_Picture 
  248.       Height          =   450
  249.       Index           =   0
  250.       Left            =   810
  251.       Picture         =   NEWTAB.FRX:0692
  252.       Top             =   0
  253.       Visible         =   0   'False
  254.       Width           =   1500
  255.    End
  256. Dim Shared tabDLG As tabbedDialogType
  257. Sub Form_KeyDown (keyCode As Integer, shift As Integer)
  258.     If keyCode = 9 And shift = 2 Then
  259.        Tab_SetActive Me, tabDLG, tabDLG.active_sheet + 1
  260.     End If
  261. End Sub
  262. Sub Form_Load ()
  263. ' =====================================
  264. ' PerfectTAB 1.0
  265. ' =====================================
  266. ' Copyright (C) 1994 by
  267. ' bytes & letters,
  268. ' hilger software technology
  269. ' postfach 16 27
  270. ' 66716 Saarlouis, germany
  271. ' written by Dirk Hilger
  272. '=======================================
  273. '------------------------------------------------------------------'
  274. ' Formglobal configuration of the tabbed dialog                         '
  275. ' (All other members of tabDLG are for internal usage only)
  276. '------------------------------------------------------------------'
  277.      
  278.      tabDLG.active_bevelWidth = 1
  279.      tabDLG.inactive_bevelwidth = 0
  280.      tabDLG.Sheet_Distance = -3       ' Distance between sheets
  281.      tabDLG.Loop_Distance = -3        ' Distance between loops
  282.      tabDLG.Loop_Sheet_Distance = -3  ' Distance between loop and sheet
  283.      tabDLG.Active_Yadd = 5           ' Take active sheet n pixels to fore
  284.      tabDLG.loops_per_group = 100     ' A new group starts after n loops
  285.      tabDLG.label_position = 1        ' Top, center
  286.      
  287.     '------------------------------------------------------------------'
  288.     'Now activate level 0
  289.     '--------------------------
  290.      
  291.      Tab_SetActive Me, tabDLG, 0
  292. End Sub
  293. Sub Tab_Label_Click (Index As Integer)
  294.    Tab_SetActive Me, tabDLG, Index
  295. End Sub
  296. Sub Tab_Loop_Click (Index As Integer)
  297.     Tab_SetActive Me, tabDLG, Index
  298. End Sub
  299. Sub Tab_Loop_GotFocus (Index As Integer)
  300.     tab_label(Index).BorderStyle = 1
  301. End Sub
  302. Sub Tab_Loop_KeyPress (Index As Integer, KeyAnsi As Integer)
  303.     Tab_SetActive Me, tabDLG, Index
  304. End Sub
  305. Sub Tab_Loop_LostFocus (Index As Integer)
  306.     tab_label(Index).BorderStyle = 0
  307. End Sub
  308.